gusucode.com > 酷维企业网站CMS管理系统 v2.1.0 > 酷维企业网站CMS管理系统 v2.1.0\code\Images\load.js
Dim Bar, Line, SP Bar = 0 Line = "|" SP = 100 Function Window_onLoad() Bar = 95 SP = 10 End Function Function Count() If Bar < 100 Then Bar = Bar + 1 Window.Status = "页面载入状态:" & Bar & "%" & " " & String(Bar, Line) setTimeout "Count()", SP Else Window.Status = "页面载入状态:完成!" Document.Body.Style.Display = "" End If End Function Call Count()